* lisp/progmodes/flymake.el (flymake-log): Push the right code

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index e9b2b8a77c12dd37171c2641c99b6a11c442a508..8481a27775fa722c861dbdbc2bc7c5a4fac55779 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -294,7 +294,7 @@ generated it."
          (sublog (if file
                      (intern
                       (file-name-nondirectory
-                       (file-name-sans-extension compile-file))))))
+                       (file-name-sans-extension file))))))
     `(flymake--log-1 ,level ',sublog ,msg ,@args)))
 
 (defun flymake-error (text &rest args)